10 '*** OISAC 2 *** INKEY$ ***
20 A$=INKEY$:IF A$=""THEN20ELSEBEEP
30 IF KEY="" THEN30 ELSEBEEP